home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / NEWSOFT / AUGUST / WORKDISC / !Forthmacs / !Boot next >
Text File  |  1997-07-08  |  343b  |  10 lines
  1. Iconsprites <Obey$Dir>.!Sprites
  2.  
  3. If "<Forthmacs$Dir>"<>"<Obey$Dir>" then Set Run$Path <Obey$Dir>.risc_os.bin.,<Run$Path>
  4. If "<Forthmacs$Dir>"<>"<Obey$Dir>" then Set Forthmacs$Path ,<Obey$Dir>.,<Obey$Dir>.tools.
  5. If "<Forthmacs$Dir>"<>"<Obey$Dir>" then Set Forthmacs$Dir <Obey$Dir>
  6.  
  7. Unset ForthmacsTcl
  8. Unset Forthmacsoptions
  9. Set alias$cd dir %0
  10.